Option Explicit
Sub B_Sample015()
    Dim myRng As Range
    Dim myCmt As Comment
    Set myRng = Range("A1")		'Nxs
    'ǳƨ즹
    With myRng
        On Error Resume Next
        Set myCmt = .Comment
        On Error GoTo 0
        If myCmt Is Nothing Then
            MsgBox "S]w"
        Else
            MsgBox myCmt.Text
        End If
    End With
    Set myRng = Nothing			'
    Set myCmt = Nothing
End Sub
